home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
splt244.zip
/
T8-13.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-07-21
|
2KB
|
68 lines
10 OPEN "T8-13.PLT" FOR OUTPUT AS #1
20 REM
30 REM
40 REM
50 OPTION BASE 1
60 DIM W$(4),P(4,3)
70 DATA 0,21.5,43,43,80.5,118,118,166.5
80 DATA 215,215,287,360
90 DATA Administration,R&D,Marketing
100 DATA Manufacturing
110 REM
120 REM
130 FOR I=1 TO 4
140 FOR J=1 TO 3
150 READ P(I,J)
160 NEXT J
170 NEXT I
180 READ W$(1),W$(2),W$(3),W$(4)
190 REM
200 REM
210 PRINT #1,"IN;IP2250,500,8250,7100;"
220 PRINT #1,"SC-10,10,-10,12;"
230 REM
240 PRINT #1,"SP2;PA0,12;SI.4,.6;CP-12.34,0;"
250 PRINT #1,"LBSales Dollar Distribution"+CHR$(3)
360 REM
270 REM
280 PRINT #1,"SP1;SI.2,.3;"
290 REM
300 REM
310 PI=3.141593
320 FOR I=1 TO 4
330 REM
340 R=8
350 IF I=2 THEN R=9
360 X=R*COS(P(I,2)*(PI/180))
370 Y=R*SIN(P(I,2)*(PI/180))
380 PRINT #1,"PA";X;",";Y;";"
390 REM
400 L=LEN(W$(I))
410 IF I=1 THEN PRINT #1,"CP0,-.25;"
420 IF I=3 THEN PRINT #1,"CP";-L;",-.25;"
430 IF I=4 THEN PRINT #1,"CP0,-.5;"
440 PRINT #1,"LB"+W$(I)+CHR$(3)
450 NEXT I
460 REM
470 FOR I=1 TO 4
480 PRINT #1,"SP";I+2;";"
490 X=0
500 Y=0
510 IF I=2 THEN X=COS(P(I,2)*(PI/180))
520 IF I=2 THEN Y=SIN(P(I,2)*(PI/180))
530 IF I=1 THEN PRINT #1,"FT1;"
540 IF I=2 THEN PRINT #1,"FT3,.3,45;"
550 IF I=3 THEN PRINT #1,"FT4,.6,45;"
560 IF I=4 THEN PRINT #1,"FT3,.6,45;"
570 REM
580 S=P(I,3)-P(I,1)
590 REM
600 PRINT #1,"PA";X;",";Y;";"
610 PRINT #1,"WG7.5,";P(I,1);",";S;";"
620 REM
630 PRINT #1,"EW7.5,";P(I,1);",";S;";"
640 NEXT I
650 REM
660 PRINT #1,"SP0;"
670 END